home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
94xx
/
9403a.d64
/
kalender prg. 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
361b
|
19 lines
10 INPUT "JULIANISCHES DATUM ";JD
20 GOSUB 2000
30 PRINT "KALENDERDATUM:";T;".";M;".";J
40 END
2000 REM JULIANISCH -> KALENDER
2005 J=INT((4*JD-1)/146097)
2010 JD=4*JD-1-146097*J
2020 T=INT(JD/4)
2030 JD=INT((4*T+3)/1461)
2040 T=4*T+3-1461*JD
2050 T=INT((T+4)/4)
2060 M=INT((5*T-3)/153)
2070 T=5*T-3-153*M
2080 T=INT((T+5)/5)
2090 J=100*J+JD
2100 IFM<10THENM=INT(M+3):GOTO2120
2110 M=INT(M-9):J=J+1
2120 RETURN